home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / misc / EuraTools.lha / EuraTools / ARexx / Version.ecall < prev    next >
Encoding:
Text File  |  1997-05-06  |  815 b   |  27 lines
  1. /*****************************************************************
  2. **                                                              **
  3. **      Version.ecall               EuraCall-Script             **
  4. **      Liefert die Version von EuraCall                        **
  5. **                                                              **
  6. ******************************************************************
  7. **
  8. **      V1.0 -- (C) 1997 Richard Körber -- All Rights Reserved
  9. **
  10. **/
  11.  
  12. OPTIONS RESULTS
  13. OPTIONS FAILAT 6
  14. IF Left(Address(),8)~='EURACALL' THEN ADDRESS 'EURACALL.1'
  15.  
  16. /*---- SCRIPT STARTS HERE --------------------------------------*/
  17.  
  18. 'VERSION'
  19. PARSE VAR result ver '.' rev '(' date ')'
  20.  
  21. SAY "Version" ver "Revision" rev "vom" date ||"."
  22.  
  23. /*---- SCRIPT ENDS HERE ----------------------------------------*/
  24.  
  25. EXIT
  26.  
  27.